home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / INCUXTRA / IncubationXMas.exe / Missions / XMAS.lcl next >
INI File  |  1997-12-18  |  7KB  |  339 lines
  1. [LCL]
  2. *========================================================================================
  3. *
  4. *      LCL_Program: Missions\wtest1_6.lcl
  5. *      ************
  6. *             Date: 11/28/97
  7. *          Comment: 
  8. *
  9. *========================================================================================
  10. *
  11. * Environment variable _A select between NEXT PLAYER (01),MOVE UNIT (02),ATTACK (03),USE (04),NEXT TURN (05),INIT MAP (06),DIALOG (100...255).
  12. *
  13. >EnvVarCmpNum(_A_Calltype,01);  Goto(NextPlayer); <
  14. >EnvVarCmpNum(_A_Calltype,02);  Goto(MoveUnit);   <
  15. >EnvVarCmpNum(_A_Calltype,03);  Goto(Attack);     <
  16. >EnvVarCmpNum(_A_Calltype,04);  Goto(Use);        <
  17. >EnvVarCmpNum(_A_Calltype,05);  Goto(NextTurn);   <
  18. >EnvVarCmpNum(_A_Calltype,06);  Goto(InitMap);    <
  19. >EnvVarCmpNum(_A_Calltype,100); Goto(Dialog_0);   <
  20. *
  21. *========================================================================================
  22.  
  23. *
  24. :Dialog_0;
  25. **[Dialog]**
  26. *
  27. [END]
  28.  
  29. :Use;
  30. **[Use]**
  31. *
  32. * EnvironmentVars: B = use-x, C = use-y, D = use-ActPt
  33. *
  34.  
  35. * Switches for elevator 11,10
  36. >EnvVarCmpNum (_B,11);
  37.  &EnvVarCmpNum (_C,11);
  38.  &EnvVarCmpNum (_D,36);
  39.     MoveCamera (7,6,11,10,14);
  40.     Elevator (11,10,0,7);
  41.     SetActPt (12,11,36);
  42. <
  43. >EnvVarCmpNum (_B,11);
  44.  &EnvVarCmpNum (_C,11);
  45.  &EnvVarCmpNum (_D,37);
  46.     MoveCamera (7,6,11,10,14);
  47.     Elevator (11,10,1,7);
  48.     SetActPt (12,11,37);
  49. <
  50. >EnvVarCmpNum (_B,12);
  51.  &EnvVarCmpNum (_C,11);
  52.  &EnvVarCmpNum (_D,36);
  53.     MoveCamera (7,6,11,10,14);
  54.     Elevator (11,10,0,7);
  55.     SetActPt (11,11,36);
  56. <
  57. >EnvVarCmpNum (_B,12);
  58.  &EnvVarCmpNum (_C,11);
  59.  &EnvVarCmpNum (_D,37);
  60.     MoveCamera (7,6,11,10,14);
  61.     Elevator (11,10,1,7);
  62.     SetActPt (11,11,37);
  63. <
  64.  
  65. * Switches for elevator 31,14
  66.  
  67. >EnvVarCmpNum (_B,30);
  68.  &EnvVarCmpNum (_C,15);
  69.  &EnvVarCmpNum (_D,36);
  70.     MoveCamera (27,10,31,14,10);
  71.     Elevator (31,14,0,7);
  72.     SetActPt (30,14,36);
  73. <
  74. >EnvVarCmpNum (_B,30);
  75.  &EnvVarCmpNum (_C,15);
  76.  &EnvVarCmpNum (_D,37);
  77.     MoveCamera (27,10,31,14,10);
  78.     Elevator (31,14,1,7);
  79.     SetActPt (30,14,37);
  80. <
  81. >EnvVarCmpNum (_B,30);
  82.  &EnvVarCmpNum (_C,14);
  83.  &EnvVarCmpNum (_D,36);
  84.     MoveCamera (27,10,31,14,10);
  85.     Elevator (31,14,0,7);
  86.     SetActPt (30,15,36);
  87. <
  88. >EnvVarCmpNum (_B,30);
  89.  &EnvVarCmpNum (_C,14);
  90.  &EnvVarCmpNum (_D,37);
  91.     MoveCamera (27,10,31,14,10);
  92.     Elevator (31,14,1,7);
  93.     SetActPt (30,15,37);
  94. <
  95.  
  96. * Switches for elevator 31,25
  97.  
  98. >EnvVarCmpNum (_B,30);
  99.  &EnvVarCmpNum (_C,25);
  100.  &EnvVarCmpNum (_D,36);
  101.     MoveCamera (27,29,31,25,10);
  102.     Elevator (31,25,0,7);
  103.     SetActPt (30,24,36);
  104. <
  105. >EnvVarCmpNum (_B,30);
  106.  &EnvVarCmpNum (_C,25);
  107.  &EnvVarCmpNum (_D,37);
  108.     MoveCamera (27,29,31,25,10);
  109.     Elevator (31,25,1,7);
  110.     SetActPt (30,24,37);
  111. <
  112. >EnvVarCmpNum (_B,30);
  113.  &EnvVarCmpNum (_C,24);
  114.  &EnvVarCmpNum (_D,36);
  115.     MoveCamera (27,29,31,25,10);
  116.     Elevator (31,25,0,7);
  117.     SetActPt (30,25,36);
  118. <
  119. >EnvVarCmpNum (_B,30);
  120.  &EnvVarCmpNum (_C,24);
  121.  &EnvVarCmpNum (_D,37);
  122.     MoveCamera (27,29,31,25,10);
  123.     Elevator (31,25,1,7);
  124.     SetActPt (30,25,37);
  125. <
  126.  
  127. * Switches for elevator 21,9
  128.  
  129. >EnvVarCmpNum (_B,20);
  130.  &EnvVarCmpNum (_C,10);
  131.  &EnvVarCmpNum (_D,36);
  132.     MoveCamera (25,9,21,9,14);
  133.     Elevator (21,9,0,15);
  134.     SetActPt (20,9,36);
  135. <
  136. >EnvVarCmpNum (_B,20);
  137.  &EnvVarCmpNum (_C,10);
  138.  &EnvVarCmpNum (_D,37);
  139.     MoveCamera (25,9,21,9,14);
  140.     Elevator (21,9,1,15);
  141.     SetActPt (20,9,37);
  142. <
  143. >EnvVarCmpNum (_B,20);
  144.  &EnvVarCmpNum (_C,9);
  145.  &EnvVarCmpNum (_D,36);
  146.     MoveCamera (25,9,21,9,14);
  147.     Elevator (21,9,0,15);
  148.     SetActPt (20,10,36);
  149. <
  150. >EnvVarCmpNum (_B,20);
  151.  &EnvVarCmpNum (_C,9);
  152.  &EnvVarCmpNum (_D,37);
  153.     MoveCamera (25,9,21,9,14);
  154.     Elevator (21,9,1,15);
  155.     SetActPt (20,10,37);
  156. <
  157. [END]
  158.  
  159. :Attack;
  160. **[Attack]**
  161. *
  162. * EnvironmentVars: B = attack-x, C = attack-y
  163. [END]
  164.  
  165. :MoveUnit:
  166. **[MoveUnit]**
  167. *
  168. * EnvironmentVars: B = movetarget-x, C = movetarget-y, D = z-position(in 10cm), E = movetarget-ActPt, F = unit id
  169. *
  170. [END]
  171.  
  172. :NextTurn;
  173. **[Next turn]**
  174. *
  175. * EnvironmentVars: B = turn
  176. *
  177.  
  178. GetActPt (_C,31,14);
  179. GetActPt (_F,23,0);
  180. GetActPt (_G,13,0);
  181. GetActPt (_H,16,21);
  182. GetActPt (_I,6,25);
  183. GetActPt (_J,6,29);
  184. GetActPt (_L,1,29);
  185. GetActPt (_M,1,0);
  186.  
  187. *Monster Tube 18,1
  188.  
  189. >EnvVarCmpNum (_B,3);
  190.  |VarCmpNum (_C,36);
  191.     MoveCamera (22,5,18,1,7);
  192.     OpenTube (18,1);
  193. <
  194.  
  195. >VarCmpNum (_F,36);
  196.  |VarCmpNum (_G,36);
  197.  |VarCmpNum (_H,36);
  198.  |VarCmpNum (_I,36);
  199.  |VarCmpNum (_J,36);
  200.  |VarCmpNum (_L,36);
  201.  |VarCmpNum (_M,36);
  202.     SetVarNum (_K,1);
  203.      #SetVarNum (_K,0);
  204. <
  205.  
  206. >VarGreaterNum (_K,0);
  207.  &EnvVarGreaterNum (_B,3);
  208.     InsertUnit (255,64,"",0,0,18,1,2);
  209.     InsertUnit (255,50,"",0,0,18,1,3);
  210. <
  211.  
  212.  
  213. *Monster Tube 2,28
  214.  
  215. >EnvVarCmpNum (_B,1);
  216.      MoveCamera (6,22,2,28,7);
  217.     OpenTube (2,28);
  218. <
  219.  
  220. >VarCmpNum (_F,36);
  221.  |VarCmpNum (_G,36);
  222.  |VarCmpNum (_H,36);
  223.  |VarCmpNum (_I,36);
  224.  |VarCmpNum (_J,36);
  225.  |VarCmpNum (_L,36);
  226.  |VarCmpNum (_M,36);
  227.     SetVarNum (_K,1);
  228.      #SetVarNum (_K,0);
  229. <
  230.  
  231. >VarGreaterNum (_K,0);
  232.  &EnvVarGreaterNum (_B,1);
  233.      InsertUnit (255,64,"",4,0,2,28,2);
  234.     InsertUnit (255,50,"",2,0,2,28,3);
  235. <
  236.  
  237. *Monster Tube 13,19
  238.  
  239. >EnvVarCmpNum (_B,2);
  240.      MoveCamera (13,19,13,19,20);
  241.     OpenTube (13,19);
  242. <
  243.  
  244. >VarCmpNum (_F,36);
  245.  |VarCmpNum (_G,36);
  246.  |VarCmpNum (_H,36);
  247.  |VarCmpNum (_I,36);
  248.  |VarCmpNum (_J,36);
  249.  |VarCmpNum (_L,36);
  250.  |VarCmpNum (_M,36);
  251.     SetVarNum (_K,1);
  252.      #SetVarNum (_K,0);
  253. <
  254.  
  255. >VarGreaterNum (_K,0);
  256.  &EnvVarGreaterNum (_B,2);
  257.      InsertUnit (255,64,"",4,0,13,19,2);
  258.     InsertUnit (255,50,"",2,0,13,19,3);
  259. <
  260.  
  261. *Monster Tube 16,8
  262.  
  263. GetUnitsInArea (_N,252,0,0,2,29);
  264. GetActPt (_P,0,0);
  265.  
  266. >VarLowerNum (_N,4);
  267.  &VarCmpNum (_P,36);
  268.     MoveCamera (11,8,16,8,7);
  269.     OpenTube (16,8);
  270.     SetActPt (0,0,37);
  271. <
  272.  
  273. >VarCmpNum (_F,36);
  274.  |VarCmpNum (_G,36);
  275.  |VarCmpNum (_H,36);
  276.  |VarCmpNum (_I,36);
  277.  |VarCmpNum (_J,36);
  278.  |VarCmpNum (_L,36);
  279.  |VarCmpNum (_M,36);
  280.     SetVarNum (_K,1);
  281.      #SetVarNum (_K,0);
  282. <
  283.  
  284. >VarGreaterNum (_K,0);
  285.  &VarLowerNum (_N,4);
  286.     InsertUnit (255,64,"",0,0,16,8,2);
  287.     InsertUnit (255,50,"",0,0,16,8,3);
  288. <
  289.  
  290. [END]
  291.  
  292. :NextPlayer;
  293. **[Next player]**
  294. *
  295. * EnvironmentVars: B = turn, C = player
  296. *
  297. * Get numbers of units for each player. Save numbers in _A (p0),_B (p1),_C (p2),_D(p3) and _E(com).
  298. GetUnits (_A_p0,0); 
  299. GetUnits (_E_com,255);
  300.  
  301. * Reset game control variables for saving the winconditions.
  302. SetGameControl (0,0);
  303. SetGameControl (4,0);
  304. GetActPt (_F,23,0);
  305. GetActPt (_G,13,0);
  306. GetActPt (_H,16,21);
  307. GetActPt (_I,6,25);
  308. GetActPt (_J,6,29);
  309. GetActPt (_L,1,29);
  310. GetActPt (_M,1,0);
  311.  
  312. * Set win conditions for each player.
  313. * Player 0:
  314.  
  315.  
  316. >VarCmpNum (_F,37);
  317.  &VarCmpNum (_G,37);
  318.  &VarCmpNum (_H,37);
  319.  &VarCmpNum (_I,37);
  320.  &VarCmpNum (_J,37);
  321.  &VarCmpNum (_L,37);
  322.  &VarCmpNum (_M,37);
  323.  &VarCmpNum (_E,0);
  324.     SetGameControl (0,2);
  325. <
  326.  
  327. * Player Computer:
  328.  
  329. GetUnits (_H,0);
  330. >VarCmpNum (_H_p0,0);
  331.     SetGameControl (4,1);
  332. <
  333. *
  334. [END]
  335.  
  336. :InitMap;
  337. **[Init map]**
  338. *
  339. [END]